function zcr(wavFile,frameSize,overlap)

%Autor: Paula Sanz Leon
%Fecha: Septiembre 2008

[signal,fs] = wavread(wavFile);
q           = wavFile;
signal      = signal / max(abs(signal));     %normalizacion
L           = length(signal);

frameMat=buffer(signal, frameSize, overlap);
zcr1=sum(frameMat(1:end-1, :).*frameMat(2:end, :)<0); %Método 1
zcr2=sum(frameMat(1:end-1, :).*frameMat(2:end, :)<=0);%Método 2, incluye los ceros
time=(1:L)/fs;
frameNum=size(frameMat, 2);
frameTime=((0:frameNum-1)*(frameSize-overlap)+0.5*frameSize)/fs;

subplot(3,1,1); 
                plot(time, signal); 
                ylabel('Amplitud Normalizada', 'FontSize', 12);
                xlabel('Tiempo(seg)', 'FontSize', 12);
                title(['ZCR', sprintf('\n'),q], 'FontSize', 12);
subplot(3,1,2); 
                plot(frameTime, zcr1, '.-', 'Color', [0, 0.75, 0.75]);
                ylabel('Cruces por Cero', 'FontSize', 12)
                title('Metodo 1', 'FontSize', 12);
subplot(3,1,3);
                plot(frameTime,zcr2,'.-','Color',[1, 0.2, 0.4])
                ylabel('Cruces por Cero', 'FontSize',12);
                xlabel('Tiempo(seg)', 'FontSize',12);
                title('Metodo 2', 'FontSize', 12);